home *** CD-ROM | disk | FTP | other *** search
- object Form11: TForm11
- Left = 272
- Top = 127
- BorderStyle = bsNone
- Caption = 'Sat�l�k Daire Listesi'
- ClientHeight = 480
- ClientWidth = 640
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 640
- Height = 480
- AutoSize = True
- Picture.Data = {<image000.jpg>}
- OnMouseDown = Image1MouseDown
- end
- object Label1: TLabel
- Left = 40
- Top = 288
- Width = 42
- Height = 13
- Caption = 'Semt Ad�'
- Transparent = True
- end
- object Label2: TLabel
- Left = 160
- Top = 312
- Width = 53
- Height = 13
- Caption = 'Fiyat Aral���'
- Transparent = True
- end
- object Label3: TLabel
- Left = 40
- Top = 336
- Width = 70
- Height = 13
- Caption = '�lk Fiyat De�eri'
- Transparent = True
- end
- object Label4: TLabel
- Left = 40
- Top = 376
- Width = 84
- Height = 13
- Caption = '�kinci Fiyat De�eri'
- Transparent = True
- end
- object Label5: TLabel
- Left = 400
- Top = 312
- Width = 28
- Height = 13
- Caption = 'Aral���'
- Transparent = True
- end
- object Label6: TLabel
- Left = 272
- Top = 336
- Width = 43
- Height = 13
- Caption = '�lk De�er'
- Transparent = True
- end
- object Label7: TLabel
- Left = 272
- Top = 376
- Width = 57
- Height = 13
- Caption = '�kinci De�er'
- Transparent = True
- end
- object Image2: TImage
- Left = 376
- Top = 308
- Width = 13
- Height = 15
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Transparent = True
- end
- object Image3: TImage
- Left = 72
- Top = 408
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image002.jpg>}
- Visible = False
- end
- object Image4: TImage
- Left = 248
- Top = 408
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image003.jpg>}
- Visible = False
- end
- object Image5: TImage
- Left = 416
- Top = 408
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image004.jpg>}
- Visible = False
- end
- object Label8: TLabel
- Left = 80
- Top = 416
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'Bul'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label8MouseDown
- OnMouseUp = Label8MouseUp
- end
- object Label9: TLabel
- Left = 256
- Top = 416
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'T�m�n� G�ster'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label9MouseDown
- OnMouseUp = Label9MouseUp
- end
- object Label10: TLabel
- Left = 424
- Top = 416
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'Yazd�r'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label10MouseDown
- OnMouseUp = Label10MouseUp
- end
- object Label11: TLabel
- Left = 488
- Top = 280
- Width = 116
- Height = 13
- Caption = 'Arama Se�ene�ini Se�in'
- Transparent = True
- end
- object Image6: TImage
- Left = 536
- Top = 32
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image005.jpg>}
- OnMouseDown = Image6MouseDown
- OnMouseUp = Image6MouseUp
- end
- object Image7: TImage
- Left = 568
- Top = 32
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image006.jpg>}
- OnMouseDown = Image7MouseDown
- OnMouseUp = Image7MouseUp
- end
- object Image8: TImage
- Left = 536
- Top = 32
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image007.jpg>}
- Visible = False
- end
- object Image9: TImage
- Left = 568
- Top = 32
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image008.jpg>}
- Visible = False
- end
- object Label12: TLabel
- Left = 128
- Top = 352
- Width = 38
- Height = 13
- Caption = 'Label12'
- Transparent = True
- Visible = False
- end
- object Label13: TLabel
- Left = 128
- Top = 392
- Width = 38
- Height = 13
- Caption = 'Label13'
- Transparent = True
- end
- object Label14: TLabel
- Left = 272
- Top = 288
- Width = 31
- Height = 13
- Caption = 'Durum'
- Transparent = True
- end
- object DBGrid1: TDBGrid
- Left = 40
- Top = 64
- Width = 561
- Height = 201
- DataSource = DataSource1
- Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
- ReadOnly = True
- TabOrder = 0
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- OnDblClick = DBGrid1DblClick
- Columns = <
- item
- Expanded = False
- FieldName = 'Semtadi'
- Width = 122
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Fiyati'
- Width = 112
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Metre2'
- Width = 68
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Kat'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Oda'
- Width = 71
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Isisistemi'
- Width = 121
- Visible = True
- end>
- end
- object Edit1: TEdit
- Left = 128
- Top = 328
- Width = 121
- Height = 21
- MaxLength = 17
- TabOrder = 1
- OnExit = Edit1Exit
- OnKeyPress = Edit1KeyPress
- OnKeyUp = Edit1KeyUp
- end
- object Edit2: TEdit
- Left = 128
- Top = 368
- Width = 121
- Height = 21
- MaxLength = 17
- TabOrder = 2
- OnExit = Edit2Exit
- OnKeyPress = Edit1KeyPress
- OnKeyUp = Edit2KeyUp
- end
- object Edit3: TEdit
- Left = 344
- Top = 328
- Width = 121
- Height = 21
- MaxLength = 10
- TabOrder = 3
- OnKeyPress = Edit1KeyPress
- end
- object Edit4: TEdit
- Left = 344
- Top = 368
- Width = 121
- Height = 21
- MaxLength = 10
- TabOrder = 4
- OnKeyPress = Edit1KeyPress
- end
- object DBLookupComboBox1: TDBLookupComboBox
- Left = 128
- Top = 280
- Width = 121
- Height = 21
- KeyField = 'Semtler'
- ListField = 'Semtler'
- ListSource = DataSource2
- TabOrder = 5
- end
- object lb1: TListBox
- Left = 488
- Top = 293
- Width = 113
- Height = 97
- Hint = 'Se�ti�ini Se�ene�e G�re Arama Yapma'
- ItemHeight = 13
- Items.Strings = (
- 'Semt Ad�na G�re'
- 'Fiyat Aral���na G�re'
- 'Metre Aral���na G�re'
- 'Semt ve Fiyata G�re'
- 'Semt ve Metreye G�re'
- 'Fiyat ve Metreye G�re'
- 'T�m�ne G�re')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- end
- object ComboBox1: TComboBox
- Left = 344
- Top = 280
- Width = 121
- Height = 21
- ItemHeight = 13
- TabOrder = 7
- Text = 'T�m�'
- Items.Strings = (
- 'Sat�ld�'
- 'Sat�lmad�'
- 'T�m�')
- end
- object DataSource1: TDataSource
- DataSet = Query1
- Left = 24
- Top = 16
- end
- object DataSource2: TDataSource
- DataSet = Table2
- Left = 184
- Top = 24
- end
- object Table2: TTable
- Active = True
- TableName = 'semtler.db'
- Left = 216
- Top = 24
- object Table2No: TAutoIncField
- FieldName = 'No'
- ReadOnly = True
- end
- object Table2Semtler: TStringField
- FieldName = 'Semtler'
- Size = 15
- end
- end
- object Query1: TQuery
- Active = True
- AutoRefresh = True
- DataSource = Form2.DataSource1
- SQL.Strings = (
- 'select * from sdgiris')
- Left = 80
- Top = 24
- object Query1Isim: TStringField
- FieldName = 'Isim'
- end
- object Query1Fiyati: TCurrencyField
- FieldName = 'Fiyati'
- end
- object Query1Telefon: TStringField
- FieldName = 'Telefon'
- end
- object Query1Semtadi: TStringField
- FieldName = 'Semtadi'
- end
- object Query1Metre2: TFloatField
- FieldName = 'Metre2'
- end
- object Query1No: TIntegerField
- FieldName = 'No'
- end
- object Query1Kat: TStringField
- FieldName = 'Kat'
- Size = 6
- end
- object Query1Oda: TStringField
- FieldName = 'Oda'
- end
- object Query1Isisistemi: TStringField
- FieldName = 'Isisistemi'
- end
- end
- end
-